
********************************************************************************
**#	FIGURE 5: Regression Discontinuity Plots of Shareholder Engaggement
********************************************************************************

*Set file path
capture cd "C:\Users\austin.starkweather\Dropbox\Research\CD&A Disclosure\Analysis"
capture cd "C:\Users\joshw\Dropbox\CD&A Disclosure\Analysis"
use "Data\Temp\cda_final80_final_n20610.dta", clear
set scheme s2color

********************************************************************************
*Panel A - Engagement Indicator
********************************************************************************
rdrobust eng_ind_p1 sop_for_iss, h(0.025 0.025) c(0.7) p(1) q(2) all
rdplot eng_ind_p1 sop_for_iss if(sop_for_iss>=0.675 & sop_for_iss<=0.725), h(0.025 0.025) c(0.7) p(1) q(2) ci(95) shade play(rd_graph) graph_options(legend(off) graphregion(color(white)))
	graph export "Output\Final\rd_plot_675_725.png", as(png) replace
	
********************************************************************************
*Panel B -  Engagement Count
********************************************************************************
rdrobust ln_eng_num_p1 sop_for_iss, h(0.025 0.025) c(0.7) p(1) q(2) all
rdplot ln_eng_num_p1 sop_for_iss if(sop_for_iss>=0.675 & sop_for_iss<=0.725), h(0.025 0.025) c(0.7) p(1) q(2) ci(95) shade graph_options(legend(off) graphregion(color(white)))
	graph export "Output\Final\rd_plot_675_725_coount.png", as(png) replace
